ERP 시스템 인 뉴토끼 주소를 유지할 때 데이터 목록을 얻고 싶습니까?
데이터 목록을 뉴토끼 주소려면 Transaction : SE16N 등을 사용하여 테이블을 뉴토끼 주소고 스프레드 시트로 다운로드 할 수 있지만 "시간이 걸리고 너무 많은 문제가 있습니다!"라고 말하면 Excel 매크로 (VBA)를 사용하여 쉽게 뉴토끼 주소는 방법을 보여줍니다
그건 그렇고,이 시간의 샘플 코드는 다음 환경뉴토끼 주소 생성되었습니다
・ Windows10 Ver1903 (64bit)
・ 뉴토끼 주소 GUI 740
・ Excel 2016 (32bit)
뉴토끼 주소 RFC 정보
뉴토끼 주소 시스템에는 RFC (원격 기능 호출)라는 기능 모듈이 있습니다
일반적으로 기능 모듈은 ABAP (Advanced Business Application Programming)를 사용하여 호출하도록 설계된 뉴토끼 주소 시스템의 API (BAPI)입니다 그러나 RFC를 지원하는 BAPI는 ABAP 이외의 다른 곳에서 호출 할 수 있습니다 이번에는 Excel 매크로를 사용하여 BAPI 통화를 소개합니다
[기본 설정]
・ 뉴토끼 주소 GUI는 Windows 시스템에 설치되어야합니다
・에는 뉴토끼 주소 시스템에 액세스 할 수있는 사용자 ID가 있습니다
테이블을로드하는 기능 모듈
테이블을 읽으려면 RFC 호환 BAPI "rfc_read_table"을 사용하십시오
매개 변수로로드하려는 테이블 또는 필드를 지정하여 테이블 내용을 쉽게 뉴토끼 주소 할 수 있습니다 구체적으로, 우리는 가져 오기 및 테이블 매개 변수를 사용하지만 ABAP 개발에 대한 자세한 내용을 알고 싶습니다
Excel 매크로뉴토끼 주소 BAPI를 호출하는 샘플 코드
Excel 매크로를 사용하여 BAPI "rfc_read_table"을 호출하는 샘플 코드는 다음과 같습니다
이것은 자료 마스터 (Mara : General Product Data)뉴토끼 주소 항목 코드, 항목 유형 및 표준 장치를 검색하는 샘플입니다 항목 수를 좁히기 위해서는 항목 코드의 시작이 "aa-"로 시작됩니다 얻은 항목 정보는 Excel로 생성되어 새 시트를 게시합니다
(Excel 매크로 모듈에 직접 붙여 넣을 수 있음)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 |
sub get_mara() Sheets.add이후:=ActiveSheet dim functionCtrlas 개체 Dim 뉴토끼 주소CONNECTIONas 개체 dim 결과as 부울 dim irow, iColumn, istart, istartrow, ifield, ilengthas 정수 dim vfieldas String Dim RFCas 개체 Dim i_query_tableas 개체 Dim i_delimiteras 개체 dim i_nodataas 개체 Dim i_rowskipsas 개체 dim i_rowcountas 개체 dim it_optionsas 개체 dim it_fieldsas 개체 dim it_dataas 개체 ' 뉴토끼 주소 구성 요소 SET functionCtrl = CreateObject("뉴토끼 주소FUNTIONS") ' R/3 연결 SET 뉴토끼 주소CONNECTION = functionCtrl.Connection ' 로그인 실행 if 뉴토끼 주소CONNECTION.로그온(0, false) < true the msgbox "로그인 실패", vbcritical 응용 프로그램.커서 = xldefault SET functionCtrl = 아무것도 SET 뉴토끼 주소CONNECTION = 아무것도 출구 sub END if on오류 goto MyError 'bapi 정의 SET RFC = functionCtrl.add("rfc_read_table") ' 가져 오기 매개 변수 SET i_query_table = RFC.Exports("query_table") SET i_delimiter = RFC.Exports("Delimiter") SET i_nodata = RFC.수출("no_data") SET i_rowskips = RFC.수출("Rowskips") SET i_rowcount = RFC.수출("RowCount") ' 테이블 매개 변수 SET it_options = RFC.테이블("옵션") SET it_fields = RFC.테이블("필드") SET it_data = RFC.테이블("데이터") i_query_table.value = "Mara" i_delimiter.value = "" i_nodata = "" i_rowskips = 0 i_rowcount = 0 it_fields.부록 it_fields(1, "FieldName") = "matnr" it_fields.부록 it_fields(2, "FieldName") = "mtart" it_fields.부록 it_fields(3, "FieldName") = "Meins" it_options.부록 it_options(1, "텍스트") = "Matnr Like '" & "AA-%" & " '" 결과 = RFC.콜 if not 결과the ' 오류 인 경우 표시 오류 코드 표시 msgbox "오류 실행 :" & RFC.예외, vbcritical GOTO endsyori else end if 'out 열 이름으로 Excel 시트 for ifield = 1 to it_fields.RowCount 셀(1, ifield).value = it_fields(ifield, "FieldName") 다음 'Excel 시트에 대한 출력 데이터 ifield = 1 for irow = 1 to it_data.RowCount for ifield = 1 to it_fields.RowCount istart = it_fields(ifield, "오프셋") + 1 ilength = it_fields(ifield, "길이") if istart Len(it_data(irow, "WA")) the vfield = NULL else vfield = MID(it_data(Irow, "WA"), istart, ilength) end if select case it_fields(ifield, "유형") CASE "C" 셀(irow + 1, ifield).value = " '" & vfield CASE "D" 셀(Irow + 1, ifield).value = 형식(vfield, "@@@/@") CASE "T" 셀(irow + 1, ifield).value = 형식(vfield, "@@ :@: @@") end select 다음 다음 msgbox "다운로드 수 =" & it_data.RowCount GOTO endsyori '오류 처리 MyError: msgboxerr.번호 & err.설명, vbcritical endsyori: 뉴토끼 주소CONNECTION.로그 오프 응용 프로그램.커서 = xldefault 응용 프로그램.상태 바 = 거짓 SET functionCtrl = 아무것도 SET 뉴토끼 주소CONNECTION = 아무것도 set RFC = 아무것도 SET i_query_table = 아무것도 SET i_delimiter = 아무것도 set i_nodata = 아무것도 SET i_rowskips = 아무것도 SET i_rowcount = 아무것도 SET it_options = 아무것도 SET it_fields = 아무것도 SET it_data = 아무것도 end sub |
간단한 설명
|
22 |
SET functionCtrl = CreateObject("뉴토끼 주소FUNTIONS") |
뉴토끼 주소 시스템의 ActiveX 구성 요소 개체를 만듭니다 뉴토끼 주소 GUI가 Windows에 설치되면 ActiveX 구성 요소도 설치되므로 그대로 사용할 수 있습니다
|
41 |
SET RFC = functionctrl.add("rfc_read_table") |
Shere, 사용하려는 BAPI를 지정하십시오
|
55 |
i_query_table.value = "Mara" |
Shere,로드하려는 테이블의 이름을 지정하십시오 이번에는 재료 마스터의 일반 제품 데이터를로드하므로 "Mara"를 지정합니다
|
61 62 63 64 65 66 |
it_fields.Appendrow it_fields(1, "FieldName") = "matnr" it_fields.부록 it_fields(2, "FieldName") = "Mtart" it_fields.부록 it_fields(3, "FieldName") = "Meins" |
Shere, 뉴토끼 주소려는 테이블의 필드를 지정하십시오 이번에는 항목 코드, 항목 유형 및 표준 단위를 얻고 싶습니다 "MATNR", "MTART"및 "MEINS"를 지정합니다 항목 수를 늘리려면 부록 메소드를 사용하여 IT_Field 객체에 행을 추가하여 항목을 추가하십시오
|
68 69 |
it_options.Appendrow it_options(1, "텍스트") = "Matnr Like '" & "AA-%" & " '" |
Shere, 뉴토끼 주소 할 조건을 지정하십시오 이번에는 항목 코드가 "AA-"로 시작하여 "AA-%'와 같은 MATNR이라고 지정했습니다 조건을 늘리려면 부록 메소드를 사용하여 it_options 객체에 행을 추가하여 조건을 추가하십시오 이 부분을 변수로 만들면 조건을 변경할 수도 있습니다
매크로 실행을 시도해보십시오
매크로를 실행해보십시오
먼저 뉴토끼 주소 GUI에 정의 된 환경 선택이 표시되므로 사용하려는 환경을 선택하십시오
그 후, 그 후 대화가 클라이언트, 사용자, 암호 등을 입력하도록 요청하는 것처럼 보이므로 자신의 ID 정보를 입력하십시오
그렇게하면 새로운 시트가 Excel로 생성되고 항목 이름이 뒤 따르고 데이터 내용이 두 번째 및 후속 줄에 표시됩니다
뉴토끼 주소 시스템 테이블의 내용을 쉽게 검색 할 수 있습니다
마지막
이번에는 단순히 테이블의 내용을 검색하는 BAPI를 소개했습니다 뉴토끼 주소 시스템에는 RFC에서 사용할 수있는 많은 BAPI가 있으므로이 샘플 코드를 사용해보십시오 (뉴토끼 주소 시스템에서 데이터를 파괴하기 위해 업데이트 된 BAPI를 사용하지 않도록주의하십시오!)
저자 프로필
- TDI Panasonic Division
- Engaged in the development and implementation of factory production management and sales forecasting
스크래치 개발, Oracle EBS 구현 프로젝트 및 뉴토끼 주소 구현 프로젝트 경험
현재 마케팅 분야뉴토끼 주소 일하고 있습니다
이 저자의 최신 기사
erp2021 년 1 월 28 일Excel 매크로로 뉴토끼 주소 시스템에서 데이터를 검색하십시오!
